BBS in a Box 15

home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 15 / BBS in a box XV-1.iso / Files / System 7 / AppleScript / Clean Up Finder Windows.sit / Clean Up Finder Windows / Clean Up Finder Windows source < prev next >
MacBinary | 1994-12-24 | 4.1 KB | [TEXT/ToyS]
open in:
MacOS 8.1 extracted |
Win98 extracted |
DOS extracted
view JSON data |
view as text

This file was processed as: MacBinary (archive/macBinary).

You can browse this item here: Clean Up Finder Windows source
Confidence	Program	Detection	Match Type	Support
`10%`	dexvert	MacBinary `(archive/macBinary)`	fallback	Supported
`1%`	dexvert	Text File `(text/txt)`	fallback	Supported
`100%`	file	MacBinary II, inited, Sat Dec 24 00:00:00 1994, modified Sat Dec 24 00:00:00 1994, creator 'ToyS', type ASCII, 3194 bytes "Clean Up Finder Windows source" , at 0xcfa 876 bytes resource	default (weak)
`99%`	file	data	default
`74%`	TrID	Macintosh plain text (MacBinary)	default
`25%`	TrID	MacBinary 2	default (weak)
`100%`	siegfried	fmt/1762 MacBinary (II)	default
`100%`	lsar	MacBinary	default
id metadata
key	value
macFileType	`[TEXT]`
macFileCreator	`[ToyS]`
hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 1e 43 6c 65 61 6e 20 | 55 70 20 46 69 6e 64 65 |..Clean |Up Finde|
|00000010| 72 20 57 69 6e 64 6f 77 | 73 20 73 6f 75 72 63 65 |r Window|s source|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 54 6f 79 | 53 01 00 00 00 00 00 00 |.TEXTToy|S.......|
|00000050| 00 00 00 00 00 0c 7a 00 | 00 03 6c ab 21 5b 50 ab |......z.|..l.![P.|
|00000060| 21 5b 50 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |![P.....|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 3e a9 00 00 |........|....>...|
|00000080| 2d 2d 0d 2d 2d 20 72 65 | 6c 65 61 73 65 20 68 69 |--.-- re|lease hi|
|00000090| 73 74 6f 72 79 3a 0d 2d | 2d 20 31 2e 30 20 28 39 |story:.-|- 1.0 (9|
|000000a0| 34 31 32 32 33 29 20 6f | 72 69 67 69 6e 61 6c 20 |41223) o|riginal |
|000000b0| 72 65 6c 65 61 73 65 0d | 2d 2d 0d 2d 2d 20 4b 6e |release.|--.-- Kn|
|000000c0| 6f 77 6e 20 62 75 67 73 | 20 61 6e 64 20 6c 69 6d |own bugs| and lim|
|000000d0| 69 74 61 74 69 6f 6e 73 | 3a 0d 2d 2d 20 a5 20 57 |itations|:.-- . W|
|000000e0| 69 6e 64 6f 77 73 20 6d | 61 79 20 65 6e 64 20 75 |indows m|ay end u|
|000000f0| 70 20 28 70 61 72 74 6c | 79 29 20 6f 75 74 73 69 |p (partl|y) outsi|
|00000100| 64 65 20 74 68 65 20 73 | 63 72 65 65 6e 20 6c 69 |de the s|creen li|
|00000110| 6d 69 74 73 0d 2d 2d 20 | a5 20 45 72 72 6f 72 20 |mits.-- |. Error |
|00000120| 64 65 74 65 63 74 69 6f | 6e 20 61 6e 64 20 68 61 |detectio|n and ha|
|00000130| 6e 64 6c 69 6e 67 20 69 | 73 20 70 6f 6f 72 0d 2d |ndling i|s poor.-|
|00000140| 2d 0d 70 72 6f 70 65 72 | 74 79 20 74 6f 70 46 6f |-.proper|ty topFo|
|00000150| 6c 64 65 72 58 50 6f 73 | 69 74 69 6f 6e 20 3a 20 |lderXPos|ition : |
|00000160| 30 0d 70 72 6f 70 65 72 | 74 79 20 74 6f 70 46 6f |0.proper|ty topFo|
|00000170| 6c 64 65 72 59 50 6f 73 | 69 74 69 6f 6e 20 3a 20 |lderYPos|ition : |
|00000180| 30 0d 0d 6f 6e 20 70 72 | 6f 63 65 73 73 54 6f 70 |0..on pr|ocessTop|
|00000190| 46 6f 6c 64 65 72 28 74 | 68 65 46 6f 6c 64 65 72 |Folder(t|heFolder|
|000001a0| 29 0d 09 74 65 6c 6c 20 | 61 70 70 6c 69 63 61 74 |)..tell |applicat|
|000001b0| 69 6f 6e 20 22 46 69 6e | 64 65 72 22 0d 09 09 61 |ion "Fin|der"...a|
|000001c0| 63 74 69 76 61 74 65 0d | 09 09 6f 70 65 6e 20 74 |ctivate.|..open t|
|000001d0| 68 65 46 6f 6c 64 65 72 | 0d 09 09 73 65 74 20 74 |heFolder|...set t|
|000001e0| 68 65 50 6f 73 69 74 69 | 6f 6e 20 74 6f 20 70 6f |hePositi|on to po|
|000001f0| 73 69 74 69 6f 6e 20 6f | 66 20 77 69 6e 64 6f 77 |sition o|f window|
|00000200| 20 6f 66 20 74 68 65 46 | 6f 6c 64 65 72 0d 09 65 | of theF|older..e|
|00000210| 6e 64 20 74 65 6c 6c 0d | 09 73 65 74 20 74 6f 70 |nd tell.|.set top|
|00000220| 46 6f 6c 64 65 72 58 50 | 6f 73 69 74 69 6f 6e 20 |FolderXP|osition |
|00000230| 74 6f 20 69 74 65 6d 20 | 31 20 6f 66 20 74 68 65 |to item |1 of the|
|00000240| 50 6f 73 69 74 69 6f 6e | 0d 09 73 65 74 20 74 6f |Position|..set to|
|00000250| 70 46 6f 6c 64 65 72 59 | 50 6f 73 69 74 69 6f 6e |pFolderY|Position|
|00000260| 20 74 6f 20 69 74 65 6d | 20 32 20 6f 66 20 74 68 | to item| 2 of th|
|00000270| 65 50 6f 73 69 74 69 6f | 6e 0d 09 70 72 6f 63 65 |ePositio|n..proce|
|00000280| 73 73 46 6f 6c 64 65 72 | 28 74 68 65 46 6f 6c 64 |ssFolder|(theFold|
|00000290| 65 72 2c 20 30 29 0d 65 | 6e 64 20 70 72 6f 63 65 |er, 0).e|nd proce|
|000002a0| 73 73 54 6f 70 46 6f 6c | 64 65 72 0d 0d 6f 6e 20 |ssTopFol|der..on |
|000002b0| 70 72 6f 63 65 73 73 46 | 6f 6c 64 65 72 28 74 68 |processF|older(th|
|000002c0| 65 46 6f 6c 64 65 72 2c | 20 64 65 70 74 68 29 0d |eFolder,| depth).|
|000002d0| 09 74 65 6c 6c 20 61 70 | 70 6c 69 63 61 74 69 6f |.tell ap|plicatio|
|000002e0| 6e 20 22 46 69 6e 64 65 | 72 22 0d 09 09 61 63 74 |n "Finde|r"...act|
|000002f0| 69 76 61 74 65 0d 09 09 | 6f 70 65 6e 20 74 68 65 |ivate...|open the|
|00000300| 46 6f 6c 64 65 72 0d 09 | 09 74 72 79 0d 09 09 09 |Folder..|.try....|
|00000310| 6d 79 20 6d 6f 76 65 46 | 6f 6c 64 65 72 28 74 68 |my moveF|older(th|
|00000320| 65 46 6f 6c 64 65 72 2c | 20 64 65 70 74 68 29 0d |eFolder,| depth).|
|00000330| 09 09 09 6d 79 20 73 69 | 7a 65 46 6f 6c 64 65 72 |...my si|zeFolder|
|00000340| 28 74 68 65 46 6f 6c 64 | 65 72 2c 20 64 65 70 74 |(theFold|er, dept|
|00000350| 68 29 0d 09 09 6f 6e 20 | 65 72 72 6f 72 20 6d 0d |h)...on |error m.|
|00000360| 09 09 09 2d 2d 20 6a 75 | 73 74 20 69 67 6e 6f 72 |...-- ju|st ignor|
|00000370| 65 20 65 72 72 6f 72 73 | 2e 20 54 68 75 73 2c 20 |e errors|. Thus, |
|00000380| 6f 6e 65 20 63 61 6e 20 | 64 72 6f 70 20 61 20 64 |one can |drop a d|
|00000390| 69 73 6b 20 77 68 69 63 | 68 20 63 6f 6e 74 61 69 |isk whic|h contai|
|000003a0| 6e 73 20 73 6f 6d 65 20 | 66 6f 6c 64 65 72 73 20 |ns some |folders |
|000003b0| 74 6f 0d 09 09 09 2d 2d | 20 77 68 69 63 68 20 6f |to....--| which o|
|000003c0| 6e 65 20 64 6f 65 73 20 | 6e 6f 74 20 68 61 76 65 |ne does |not have|
|000003d0| 20 61 63 63 65 73 73 0d | 09 09 65 6e 64 20 74 72 | access.|..end tr|
|000003e0| 79 0d 09 09 73 65 74 20 | 74 68 65 53 75 62 46 6f |y...set |theSubFo|
|000003f0| 6c 64 65 72 73 20 74 6f | 20 28 66 6f 6c 64 65 72 |lders to| (folder|
|00000400| 73 20 69 6e 20 74 68 65 | 46 6f 6c 64 65 72 29 0d |s in the|Folder).|
|00000410| 09 09 72 65 70 65 61 74 | 20 77 69 74 68 20 73 75 |..repeat| with su|
|00000420| 62 46 6f 6c 64 65 72 20 | 69 6e 20 74 68 65 53 75 |bFolder |in theSu|
|00000430| 62 46 6f 6c 64 65 72 73 | 0d 09 09 09 6d 79 20 70 |bFolders|....my p|
|00000440| 72 6f 63 65 73 73 46 6f | 6c 64 65 72 28 73 75 62 |rocessFo|lder(sub|
|00000450| 46 6f 6c 64 65 72 2c 20 | 64 65 70 74 68 20 2b 20 |Folder, |depth + |
|00000460| 31 29 0d 09 09 65 6e 64 | 20 72 65 70 65 61 74 0d |1)...end| repeat.|
|00000470| 09 09 63 6c 6f 73 65 20 | 74 68 65 46 6f 6c 64 65 |..close |theFolde|
|00000480| 72 0d 09 65 6e 64 20 74 | 65 6c 6c 0d 65 6e 64 20 |r..end t|ell.end |
|00000490| 70 72 6f 63 65 73 73 46 | 6f 6c 64 65 72 0d 0d 6f |processF|older..o|
|000004a0| 6e 20 6d 6f 76 65 46 6f | 6c 64 65 72 28 74 68 65 |n moveFo|lder(the|
|000004b0| 46 6f 6c 64 65 72 2c 20 | 64 65 70 74 68 29 0d 09 |Folder, |depth)..|
|000004c0| 2d 2d 20 43 6f 6e 66 69 | 67 75 72 65 20 68 65 72 |-- Confi|gure her|
|000004d0| 65 20 66 6f 72 20 79 6f | 75 72 20 70 72 65 66 65 |e for yo|ur prefe|
|000004e0| 72 65 6e 63 65 73 20 28 | 61 6e 64 20 73 63 72 65 |rences (|and scre|
|000004f0| 65 6e 20 73 69 7a 65 29 | 0d 09 73 65 74 20 78 70 |en size)|..set xp|
|00000500| 6f 73 20 74 6f 20 31 38 | 20 2a 20 64 65 70 74 68 |os to 18| * depth|
|00000510| 20 2b 20 74 6f 70 46 6f | 6c 64 65 72 58 50 6f 73 | + topFo|lderXPos|
|00000520| 69 74 69 6f 6e 0d 09 73 | 65 74 20 79 70 6f 73 20 |ition..s|et ypos |
|00000530| 74 6f 20 31 38 20 2a 20 | 64 65 70 74 68 20 2b 20 |to 18 * |depth + |
|00000540| 74 6f 70 46 6f 6c 64 65 | 72 59 50 6f 73 69 74 69 |topFolde|rYPositi|
|00000550| 6f 6e 0d 09 69 66 20 78 | 70 6f 73 20 3e 20 34 30 |on..if x|pos > 40|
|00000560| 30 20 74 68 65 6e 20 73 | 65 74 20 78 70 6f 73 20 |0 then s|et xpos |
|00000570| 74 6f 20 34 30 30 0d 09 | 69 66 20 79 70 6f 73 20 |to 400..|if ypos |
|00000580| 3e 20 33 30 30 20 74 68 | 65 6e 20 73 65 74 20 79 |> 300 th|en set y|
|00000590| 70 6f 73 20 74 6f 20 33 | 30 30 0d 09 74 65 6c 6c |pos to 3|00..tell|
|000005a0| 20 61 70 70 6c 69 63 61 | 74 69 6f 6e 20 22 46 69 | applica|tion "Fi|
|000005b0| 6e 64 65 72 22 0d 09 09 | 73 65 74 20 70 6f 73 69 |nder"...|set posi|
|000005c0| 74 69 6f 6e 20 6f 66 20 | 77 69 6e 64 6f 77 20 6f |tion of |window o|
|000005d0| 66 20 74 68 65 46 6f 6c | 64 65 72 20 74 6f 20 7b |f theFol|der to {|
|000005e0| 78 70 6f 73 2c 20 79 70 | 6f 73 7d 0d 09 65 6e 64 |xpos, yp|os}..end|
|000005f0| 20 74 65 6c 6c 0d 65 6e | 64 20 6d 6f 76 65 46 6f | tell.en|d moveFo|
|00000600| 6c 64 65 72 0d 0d 6f 6e | 20 73 69 7a 65 46 6f 6c |lder..on| sizeFol|
|00000610| 64 65 72 28 74 68 65 46 | 6f 6c 64 65 72 2c 20 64 |der(theF|older, d|
|00000620| 65 70 74 68 29 0d 09 74 | 65 6c 6c 20 61 70 70 6c |epth)..t|ell appl|
|00000630| 69 63 61 74 69 6f 6e 20 | 22 46 69 6e 64 65 72 22 |ication |"Finder"|
|00000640| 0d 09 09 73 65 74 20 6e | 75 6d 49 74 65 6d 73 20 |...set n|umItems |
|00000650| 74 6f 20 63 6f 75 6e 74 | 20 69 74 65 6d 73 20 6f |to count| items o|
|00000660| 66 20 74 68 65 46 6f 6c | 64 65 72 0d 09 09 2d 2d |f theFol|der...--|
|00000670| 20 63 6f 6e 66 69 67 75 | 72 65 20 68 65 72 65 0d | configu|re here.|
|00000680| 09 09 69 66 20 6e 75 6d | 49 74 65 6d 73 20 3c 20 |..if num|Items < |
|00000690| 39 20 74 68 65 6e 0d 09 | 09 09 74 65 6c 6c 20 77 |9 then..|..tell w|
|000006a0| 69 6e 64 6f 77 20 6f 66 | 20 74 68 65 46 6f 6c 64 |indow of| theFold|
|000006b0| 65 72 0d 09 09 09 09 73 | 65 74 20 76 69 65 77 20 |er.....s|et view |
|000006c0| 74 6f 20 69 63 6f 6e 0d | 09 09 09 09 69 66 20 6e |to icon.|....if n|
|000006d0| 75 6d 49 74 65 6d 73 20 | 3c 20 35 20 74 68 65 6e |umItems |< 5 then|
|000006e0| 0d 09 09 09 09 09 73 65 | 74 20 73 69 7a 65 20 74 |......se|t size t|
|000006f0| 6f 20 7b 34 30 30 2c 20 | 31 30 30 7d 20 2d 2d 20 |o {400, |100} -- |
|00000700| 6f 6e 65 20 72 6f 77 0d | 09 09 09 09 65 6c 73 65 |one row.|....else|
|00000710| 0d 09 09 09 09 09 73 65 | 74 20 73 69 7a 65 20 74 |......se|t size t|
|00000720| 6f 20 7b 34 30 30 2c 20 | 32 30 30 7d 20 2d 2d 20 |o {400, |200} -- |
|00000730| 74 77 6f 20 72 6f 77 73 | 0d 09 09 09 09 65 6e 64 |two rows|.....end|
|00000740| 20 69 66 0d 09 09 09 09 | 63 6c 65 61 6e 20 75 70 | if.....|clean up|
|00000750| 20 62 79 20 6e 61 6d 65 | 0d 09 09 09 09 73 65 74 | by name|.....set|
|00000760| 20 7a 6f 6f 6d 65 64 20 | 74 6f 20 74 72 75 65 0d | zoomed |to true.|
|00000770| 09 09 09 65 6e 64 20 74 | 65 6c 6c 0d 09 09 65 6c |...end t|ell...el|
|00000780| 73 65 20 69 66 20 6e 75 | 6d 49 74 65 6d 73 20 3c |se if nu|mItems <|
|00000790| 20 32 35 20 74 68 65 6e | 0d 09 09 09 74 65 6c 6c | 25 then|....tell|
|000007a0| 20 77 69 6e 64 6f 77 20 | 6f 66 20 74 68 65 46 6f | window |of theFo|
|000007b0| 6c 64 65 72 0d 09 09 09 | 09 73 65 74 20 76 69 65 |lder....|.set vie|
|000007c0| 77 20 74 6f 20 73 6d 61 | 6c 6c 20 69 63 6f 6e 0d |w to sma|ll icon.|
|000007d0| 09 09 09 09 73 65 74 20 | 73 69 7a 65 20 74 6f 20 |....set |size to |
|000007e0| 7b 32 35 30 2c 20 32 37 | 35 7d 0d 09 09 09 09 63 |{250, 27|5}.....c|
|000007f0| 6c 65 61 6e 20 75 70 20 | 62 79 20 6e 61 6d 65 0d |lean up |by name.|
|00000800| 09 09 09 09 73 65 74 20 | 7a 6f 6f 6d 65 64 20 74 |....set |zoomed t|
|00000810| 6f 20 74 72 75 65 0d 09 | 09 09 65 6e 64 20 74 65 |o true..|..end te|
|00000820| 6c 6c 0d 09 09 65 6c 73 | 65 0d 09 09 09 74 65 6c |ll...els|e....tel|
|00000830| 6c 20 77 69 6e 64 6f 77 | 20 6f 66 20 74 68 65 46 |l window| of theF|
|00000840| 6f 6c 64 65 72 0d 09 09 | 09 09 73 65 74 20 73 69 |older...|..set si|
|00000850| 7a 65 20 74 6f 20 7b 34 | 35 30 2c 20 32 35 30 7d |ze to {4|50, 250}|
|00000860| 20 2d 2d 20 77 69 64 65 | 20 74 6f 20 6d 61 6b 65 | -- wide| to make|
|00000870| 20 64 61 74 65 20 72 65 | 61 64 61 62 6c 65 0d 09 | date re|adable..|
|00000880| 09 09 09 2d 2d 0d 09 09 | 09 09 2d 2d 20 43 6c 65 |...--...|..-- Cle|
|00000890| 61 6e 20 75 70 20 69 63 | 6f 6e 73 20 69 6e 20 63 |an up ic|ons in c|
|000008a0| 61 73 65 20 77 65 20 73 | 77 69 74 63 68 20 62 61 |ase we s|witch ba|
|000008b0| 63 6b 20 6c 61 74 65 72 | 2e 20 44 6f 6e 27 74 20 |ck later|. Don't |
|000008c0| 64 6f 20 69 63 6f 6e 20 | 76 69 65 77 2e 20 54 68 |do icon |view. Th|
|000008d0| 61 74 0d 09 09 09 09 2d | 2d 20 77 6f 75 6c 64 20 |at.....-|- would |
|000008e0| 73 6c 6f 77 20 64 6f 77 | 6e 20 61 6e 20 61 6c 72 |slow dow|n an alr|
|000008f0| 65 61 64 79 20 73 6c 6f | 77 20 70 72 6f 67 72 61 |eady slo|w progra|
|00000900| 6d 20 61 6e 64 20 77 69 | 74 68 20 74 68 69 73 20 |m and wi|th this |
|00000910| 6d 61 6e 79 20 69 74 65 | 6d 73 0d 09 09 09 09 2d |many ite|ms.....-|
|00000920| 2d 20 63 68 61 6e 63 65 | 73 20 61 72 65 20 27 62 |- chance|s are 'b|
|00000930| 79 20 49 63 6f 6e 27 20 | 77 69 6c 6c 20 6e 65 76 |y Icon' |will nev|
|00000940| 65 72 20 62 65 20 73 65 | 6c 65 63 74 65 64 2e 0d |er be se|lected..|
|00000950| 09 09 09 09 2d 2d 0d 09 | 09 09 09 73 65 74 20 76 |....--..|...set v|
|00000960| 69 65 77 20 74 6f 20 73 | 6d 61 6c 6c 20 69 63 6f |iew to s|mall ico|
|00000970| 6e 0d 09 09 09 09 63 6c | 65 61 6e 20 75 70 20 62 |n.....cl|ean up b|
|00000980| 79 20 6e 61 6d 65 0d 09 | 09 09 09 73 65 74 20 76 |y name..|...set v|
|00000990| 69 65 77 20 74 6f 20 6e | 61 6d 65 0d 09 09 09 09 |iew to n|ame.....|
|000009a0| 72 65 76 65 61 6c 20 66 | 69 72 73 74 20 69 74 65 |reveal f|irst ite|
|000009b0| 6d 20 2d 2d 20 74 6f 20 | 73 63 72 6f 6c 6c 20 62 |m -- to |scroll b|
|000009c0| 61 63 6b 20 74 6f 20 7b | 30 2c 30 7d 0d 09 09 09 |ack to {|0,0}....|
|000009d0| 65 6e 64 20 74 65 6c 6c | 0d 09 09 65 6e 64 20 69 |end tell|...end i|
|000009e0| 66 0d 09 65 6e 64 20 74 | 65 6c 6c 0d 65 6e 64 20 |f..end t|ell.end |
|000009f0| 73 69 7a 65 46 6f 6c 64 | 65 72 0d 0d 6f 6e 20 72 |sizeFold|er..on r|
|00000a00| 75 6e 0d 09 73 65 74 20 | 74 68 65 46 6f 6c 64 65 |un..set |theFolde|
|00000a10| 72 20 74 6f 20 63 68 6f | 6f 73 65 20 66 6f 6c 64 |r to cho|ose fold|
|00000a20| 65 72 20 77 69 74 68 20 | 70 72 6f 6d 70 74 20 22 |er with |prompt "|
|00000a30| 53 65 6c 65 63 74 20 66 | 6f 6c 64 65 72 20 74 6f |Select f|older to|
|00000a40| 20 63 6c 65 61 6e 20 75 | 70 3a 22 0d 09 69 66 20 | clean u|p:"..if |
|00000a50| 74 68 65 46 6f 6c 64 65 | 72 20 ad 20 22 22 20 74 |theFolde|r . "" t|
|00000a60| 68 65 6e 0d 09 09 74 65 | 6c 6c 20 61 70 70 6c 69 |hen...te|ll appli|
|00000a70| 63 61 74 69 6f 6e 20 22 | 46 69 6e 64 65 72 22 0d |cation "|Finder".|
|00000a80| 09 09 09 6d 79 20 70 72 | 6f 63 65 73 73 54 6f 70 |...my pr|ocessTop|
|00000a90| 46 6f 6c 64 65 72 28 66 | 6f 6c 64 65 72 20 74 68 |Folder(f|older th|
|00000aa0| 65 46 6f 6c 64 65 72 29 | 0d 09 09 65 6e 64 20 74 |eFolder)|...end t|
|00000ab0| 65 6c 6c 0d 09 65 6e 64 | 20 69 66 0d 65 6e 64 20 |ell..end| if.end |
|00000ac0| 72 75 6e 0d 0d 6f 6e 20 | 6f 70 65 6e 20 74 68 65 |run..on |open the|
|00000ad0| 46 69 6c 65 73 0d 09 73 | 65 74 20 61 6c 6c 41 72 |Files..s|et allAr|
|00000ae0| 65 46 6f 6c 64 65 72 73 | 20 74 6f 20 74 72 75 65 |eFolders| to true|
|00000af0| 0d 09 72 65 70 65 61 74 | 20 77 69 74 68 20 74 68 |..repeat| with th|
|00000b00| 65 46 69 6c 65 20 69 6e | 20 74 68 65 46 69 6c 65 |eFile in| theFile|
|00000b10| 73 0d 09 09 69 66 20 6c | 61 73 74 20 63 68 61 72 |s...if l|ast char|
|00000b20| 61 63 74 65 72 20 6f 66 | 20 28 74 68 65 46 69 6c |acter of| (theFil|
|00000b30| 65 20 61 73 20 73 74 72 | 69 6e 67 29 20 69 73 20 |e as str|ing) is |
|00000b40| 6e 6f 74 20 22 3a 22 20 | 74 68 65 6e 0d 09 09 09 |not ":" |then....|
|00000b50| 73 65 74 20 61 6c 6c 41 | 72 65 46 6f 6c 64 65 72 |set allA|reFolder|
|00000b60| 73 20 74 6f 20 66 61 6c | 73 65 0d 09 09 09 65 78 |s to fal|se....ex|
|00000b70| 69 74 20 72 65 70 65 61 | 74 0d 09 09 65 6e 64 20 |it repea|t...end |
|00000b80| 69 66 0d 09 65 6e 64 20 | 72 65 70 65 61 74 0d 09 |if..end |repeat..|
|00000b90| 69 66 20 61 6c 6c 41 72 | 65 46 6f 6c 64 65 72 73 |if allAr|eFolders|
|00000ba0| 20 74 68 65 6e 0d 09 09 | 74 65 6c 6c 20 61 70 70 | then...|tell app|
|00000bb0| 6c 69 63 61 74 69 6f 6e | 20 22 46 69 6e 64 65 72 |lication| "Finder|
|00000bc0| 22 0d 09 09 09 72 65 70 | 65 61 74 20 77 69 74 68 |"....rep|eat with|
|00000bd0| 20 74 68 65 46 69 6c 65 | 20 69 6e 20 74 68 65 46 | theFile| in theF|
|00000be0| 69 6c 65 73 0d 09 09 09 | 09 73 65 74 20 74 68 65 |iles....|.set the|
|00000bf0| 46 6f 6c 64 65 72 20 74 | 6f 20 66 6f 6c 64 65 72 |Folder t|o folder|
|00000c00| 20 74 68 65 46 69 6c 65 | 0d 09 09 09 09 74 72 79 | theFile|.....try|
|00000c10| 0d 09 09 09 09 09 6d 79 | 20 70 72 6f 63 65 73 73 |......my| process|
|00000c20| 54 6f 70 46 6f 6c 64 65 | 72 28 74 68 65 46 6f 6c |TopFolde|r(theFol|
|00000c30| 64 65 72 29 0d 09 09 09 | 09 6f 6e 20 65 72 72 6f |der)....|.on erro|
|00000c40| 72 20 6d 65 73 73 61 67 | 65 0d 09 09 09 09 09 64 |r messag|e......d|
|00000c50| 69 73 70 6c 61 79 20 64 | 69 61 6c 6f 67 20 6d 65 |isplay d|ialog me|
|00000c60| 73 73 61 67 65 20 62 75 | 74 74 6f 6e 73 20 22 4f |ssage bu|ttons "O|
|00000c70| 6b 22 0d 09 09 09 09 65 | 6e 64 20 74 72 79 0d 09 |k".....e|nd try..|
|00000c80| 09 09 65 6e 64 20 72 65 | 70 65 61 74 0d 09 09 65 |..end re|peat...e|
|00000c90| 6e 64 20 74 65 6c 6c 0d | 09 65 6c 73 65 0d 09 09 |nd tell.|.else...|
|00000ca0| 64 69 73 70 6c 61 79 20 | 64 69 61 6c 6f 67 20 22 |display |dialog "|
|00000cb0| 44 72 6f 70 20 6f 6e 6c | 79 20 66 6f 6c 64 65 72 |Drop onl|y folder|
|00000cc0| 73 20 6f 6e 20 74 68 69 | 73 20 64 72 6f 70 6c 65 |s on thi|s drople|
|00000cd0| 74 2c 20 70 6c 65 61 73 | 65 21 22 20 62 75 74 74 |t, pleas|e!" butt|
|00000ce0| 6f 6e 73 20 22 4f 6b 22 | 0d 09 65 6e 64 20 69 66 |ons "Ok"|..end if|
|00000cf0| 0d 65 6e 64 20 6f 70 65 | 6e 0d 00 00 00 00 00 00 |.end ope|n.......|
|00000d00| 00 00 01 00 00 00 02 ea | 00 00 01 ea 00 00 00 82 |........|........|
|00000d10| fc ff ff 20 06 c0 b9 00 | 00 00 00 2c 26 ff ff 20 |... ....|...,&.. |
|00000d20| 06 c1 29 00 00 00 00 2c | 25 ff ff 20 06 c1 55 00 |..)....,|%.. ..U.|
|00000d30| 1e 43 6c 65 61 6e 20 55 | 70 20 46 69 6e 64 65 72 |.Clean U|p Finder|
|00000d40| 20 57 69 6e 64 6f 77 73 | 20 73 6f 75 72 63 65 57 | Windows| sourceW|
|00000d50| 00 00 50 61 72 74 53 49 | 54 21 00 00 00 00 00 00 |..PartSI|T!......|
|00000d60| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000d70| 00 00 ab 40 51 09 00 00 | 00 00 00 00 03 6c ff 20 |...@Q...|.....l. |
|00000d80| 06 c4 7b 00 00 00 00 4c | 70 ff ff 20 06 c4 8d 00 |..{....L|p.. ....|
|00000d90| 00 00 00 04 6c 6f 63 6b | 04 73 69 7a 65 04 6b 69 |....lock|.size.ki|
|00000da0| 6e 64 04 4d 61 69 6e 0d | 64 61 74 65 20 6d 6f 64 |nd.Main.|date mod|
|00000db0| 69 66 69 65 64 0c 64 61 | 74 65 20 63 72 65 61 74 |ified.da|te creat|
|00000dc0| 65 64 05 6c 61 62 65 6c | 04 4d 61 69 6e 08 63 6f |ed.label|.Main.co|
|00000dd0| 6d 6d 65 6e 74 73 07 76 | 65 72 73 69 6f 6e 04 6e |mments.v|ersion.n|
|00000de0| 61 6d 65 0c 25 45 6e 74 | 72 79 56 65 63 74 6f 72 |ame.%Ent|ryVector|
|00000df0| 04 4d 61 69 6e 6c 65 64 | 20 0d 53 65 74 44 65 66 |.Mainled| .SetDef|
|00000e00| 00 00 00 1a 40 00 00 00 | 00 00 00 00 00 00 00 00 |....@...|........|
|00000e10| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000e20| 00 78 00 00 00 00 00 08 | 00 00 00 00 00 00 00 00 |.x......|........|
|00000e30| 00 00 00 00 00 00 ff ff | ff ff 00 00 00 34 00 00 |........|.....4..|
|00000e40| 00 24 00 00 00 00 20 6f | 00 04 a0 5f 20 6f 00 04 |.$.... o|..._ o..|
|00000e50| a1 28 a0 23 4e 75 43 54 | 6f 20 72 75 6e 20 74 68 |.(.#NuCT|o run th|
|00000e60| 69 73 20 73 63 72 69 70 | 74 20 61 70 70 6c 69 63 |is scrip|t applic|
|00000e70| 61 74 69 6f 6e 2c 20 79 | 6f 75 20 6d 75 73 74 20 |ation, y|ou must |
|00000e80| 66 69 72 73 74 20 69 6e | 73 74 61 6c 6c 20 41 70 |first in|stall Ap|
|00000e90| 70 6c 65 53 63 72 69 70 | 74 2e 00 00 00 de 54 68 |pleScrip|t.....Th|
|00000ea0| 69 73 20 64 72 6f 70 6c | 65 74 20 72 65 61 72 72 |is dropl|et rearr|
|00000eb0| 61 6e 67 65 73 20 74 68 | 65 20 46 69 6e 64 65 72 |anges th|e Finder|
|00000ec0| 20 77 69 6e 64 6f 77 73 | 20 66 6f 72 20 64 69 73 | windows| for dis|
|00000ed0| 6b 73 20 6f 72 20 66 6f | 6c 64 65 72 73 20 64 72 |ks or fo|lders dr|
|00000ee0| 6f 70 70 65 64 20 6f 6e | 20 69 74 2c 20 74 68 65 |opped on| it, the|
|00000ef0| 69 72 20 73 75 62 66 6f | 6c 64 65 72 73 2c 20 73 |ir subfo|lders, s|
|00000f00| 75 62 73 75 62 66 6f 6c | 64 65 72 73 2c 20 65 74 |ubsubfol|ders, et|
|00000f10| 63 65 74 65 72 61 2e 20 | 55 73 65 20 61 74 20 79 |cetera. |Use at y|
|00000f20| 6f 75 72 20 6f 77 6e 20 | 72 69 73 6b 2e 0d 46 72 |our own |risk..Fr|
|00000f30| 65 65 6c 79 20 64 69 73 | 74 72 69 62 75 74 61 62 |eely dis|tributab|
|00000f40| 6c 65 2c 20 62 75 74 20 | a9 31 39 39 34 20 52 65 |le, but |.1994 Re|
|00000f50| 69 6e 64 65 72 20 56 65 | 72 6c 69 6e 64 65 20 28 |inder Ve|rlinde (|
|00000f60| 72 65 69 6e 64 65 72 40 | 6e 65 75 72 65 74 70 2e |reinder@|neuretp.|
|00000f70| 62 69 6f 6c 2e 72 75 75 | 2e 6e 6c 29 00 00 00 52 |biol.ruu|.nl)...R|
|00000f80| 00 04 00 00 00 00 00 0e | 00 0a 00 10 00 00 00 0c |........|........|
|00000f90| 00 00 00 00 00 00 00 00 | 00 4f 00 0e 00 0a 00 10 |........|.O......|
|00000fa0| 01 00 00 0c 00 00 00 00 | 00 00 00 00 00 78 00 0e |........|.....x..|
|00000fb0| 00 0a 00 10 00 00 00 0c | 00 00 00 00 00 00 00 00 |........|........|
|00000fc0| 00 90 00 0c 00 09 00 10 | 00 00 00 0a 00 00 00 00 |........|........|
|00000fd0| 00 00 00 00 00 14 00 28 | 00 02 01 b5 02 42 00 28 |.......(|.....B.(|
|00000fe0| 00 02 01 dd 02 5d 00 00 | 00 00 00 00 01 00 00 00 |.....]..|........|
|00000ff0| 02 ea 00 00 01 ea 00 00 | 00 82 00 54 d6 28 0e 54 |........|...T.(.T|
|00001000| 00 00 00 1c 00 82 00 04 | 73 63 73 7a 00 00 00 2a |........|scsz...*|
|00001010| 4e 4f 54 49 00 00 00 36 | 54 45 58 54 00 00 00 42 |NOTI...6|TEXT...B|
|00001020| 73 74 79 6c 00 00 00 4e | 57 50 6f 73 00 00 00 5a |styl...N|WPos...Z|
|00001030| 00 00 ff ff 00 00 00 00 | 00 54 d6 68 00 80 ff ff |........|.T.h....|
|00001040| 50 00 00 1e 00 54 d4 30 | 04 68 ff ff 00 00 00 9a |P....T.0|.h......|
|00001050| 00 54 d6 6c 04 68 ff ff | 00 00 01 7c 00 54 d3 f8 |.T.l.h..|...|.T..|
|00001060| 00 80 ff ff 00 00 01 d2 | 00 54 d3 fc 00 00 00 00 |........|.T......|
|00001070| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+